I am trying to create a loop for the following statement

Set r1 = Range(Cells(4(i), 3), Cells(4(i), 4))
Set r2 = Range(r1, Cells(4(i), 5))
r2.Copy
Cells(5(i+1), 2).PasteSpecial Transpose:=True

the i and i+1 are the values that I want to be changing. My loop needs
to be changing in increments of 4. I have a feeling that I have to do
somekind of loop that would allow me to do the following
for i=1
inew=i+4
i new = i

and the loop continues but when I tried this or anything close to the
for i=1 would take control more than the inew part.