Copy/Paste textboxes into alternate rows

Having some success with code below. But can't get it to move to next row. (It does make many repeated inserts into same place, though.) The commented-out section works but this would mean I'd have to insert about 650 groups of code...twice, because I have a nearly identical second worksheet. I would then be able to tackle the "Selection.Formula" part afterwards.

Private Sub InsertNewLinkedTextBoxes2()
'
'
Dim c As Range
Dim rng As Range
Set rng = Selection

    For Each c In rng
        c = RowCount
        RowCount = RowCount + 1
                
    'FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To 8 Step 2 'trying to limit range for now original code:"FinalRow Step 2"
    
            ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
            Selection.Copy
            ActiveWindow.SmallScroll Down:=3
    
            Range("C5:G5").Select
            ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:= _
                False, DisplayAsIcon:=False
            Selection.ShapeRange.IncrementTop 137.25
            Selection.Formula = "=Sheet2!G5"
            ActiveWindow.SmallScroll Down:=3
            
        Next i
    Next
    
'    Range("C7:G7").Select
'    ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:= _
'        False, DisplayAsIcon:=False
'    Selection.ShapeRange.IncrementTop 137.25
'    Selection.Formula = "=Sheet2!G7"
'    ActiveWindow.SmallScroll Down:=3
'
'    Range("C9:G9").Select
'    ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:= _
'        False, DisplayAsIcon:=False
'    Selection.ShapeRange.IncrementTop 137.25
'    Selection.Formula = "=Sheet2!G9"
'    Range("C9:G9").Select
    
End Sub