Sub DoubleInt()
    For i = 2 To 30
        Sheet2.Cells(i, 1) = Int(i / 2) - 1
    Next i
End Sub