Sub IntervalCellSelect()
 Dim intFirstRow As Integer ' Первая строка для выделения
 Dim intLastRow As Integer ' Последняя строка для выделения
 Dim rgCells As Range ' Объединение выделяемых ячеек
 Dim intRow As Integer

    intFirstRow = 3
    intLastRow = 300

 ' Формирование объединения ячеек в столбце "B" от строки _
    intFirstRow до строки intLastRow с шагом 3
    For intRow = intFirstRow To intLastRow Step 3
       If rgCells Is Nothing Then
          ' Первая ячейка в объединении
          Set rgCells = Cells(intRow, 1)
       Else
          ' Добавление очередной ячейки в объединение
          Set rgCells = Union(rgCells, Cells(intRow, 1))
       End If
    Next

    ' Выделение всех ячеек в объединении
    rgCells.Select
End Sub