changing value inside for loop which also is a criteria for the looping

ok, in simplified...
A1 = "A"
A2 = "B"
A3 = "C"
A4 = "D"

so now i wish to loop through those for rows via:
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row

and inside each loop i wish to insert extra 10 rows (via loop, not all 10 rows together) bellow the initial "i" and enter the numerical value 1 to 10

so, slightly modified code to udnerstand:

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row 'at starting point this value is = 4

    for j = 1 to 10
        i = i + 1
        Rows(i).Insert  ' this inserts one row bellow the letter (A/B/C/D)
        Cells(i, 1).Value = j
    next j

next i

so, you can see that begining of the first loop (i) it sets the criteria (i=1 to 4), but inside the first loop i create another loop which inserts 10 rows and therefore increases the "i" by +10... so after first loop of "i" I have fulfilled the initial criteria for the loop and it wont carry on to do the same under "B" value (which have shifted from row 2 to 11).

And I need basicaly the program to insert 10 (one by one by another for loop "j") rows after each nonempty cell in column A