allora, con questo sono riuscito ad ottenere ciò che mi serviva:

codice:
Sub Cerca_Sindaco()
    Dim multipliDi As Integer
    multipliDi = 160
    Dim maxCerca As Integer
    maxCerca = 3373
    Dim f2Index As Integer
    f2Index = 1
      
    For i = multipliDi To maxCerca Step i + multipliDi
        Sheets("Foglio2").Cells(f2Index, 2).Value = Sheets("Foglio1").Cells(i, 1).Value
        Sheets("Foglio2").Cells(f2Index, 3).Value = Sheets("Foglio1").Cells(i, 3).Value
        f2Index = f2Index + 1
    Next
    
End Sub