Public Sub Cycle()

Dim tbl As Table, cll As Cell, i As Long, Text As String
i =  0 

For Each tbl In ThisDocument.Tables
  For Each cll In tbl.Range.Cells
    Text = Replace(cll.Range, Chr( 13 ) + Chr( 7 ), "")
    If ((i Mod  3 ) =  0  And IsNumeric(Text)) Or ((i Mod  3 ) <>  0  And Not IsNumeric(Text)) Then
      i = i +  1 
    Else
      i =  0 
    End If
    If i =  7  Then
      MsgBox "Ура, нашел нужный паттерн"
      cll.Select
      Exit Sub
      i =  0 
    End If
  Next
Next

End Sub

Dim i As Integer, CRow As Cell
i =  0 
For Each CRow In cll.Row
  If IsNumeric(Replace(CRow.Range, Chr( 13 ) + Chr( 7 ), "")) Then i = i +  1 
Next
If i >=  12  Then
  'выполнять
End If

If i <  12  Then
  'выполнять
End If

                        tbl.Cell(Row,  9 ).Range.Text = TextBox2.Text & Chr( 176 ) & "C (" & TextBox1.Text & ")"
                        tbl.Cell(Row,  10 ).Range.Text = Format(chislo3, "###0.00") ' Fixed
                        tbl.Cell(Row,  8 ).Range.Text = Format(chislo, "###0.00") & " (" & Format(chislo2, "###0.00") & ")"

Dim i As Integer, CRow As Cell, IsHeader As Boolean\ni =  0 : IsHeader = True\nFor Each CRow In cll.Row\n  i = i +  1 \n  If i =  14  Then Exit For\n  If Val(Replace(CRow.Range, Chr( 13 ) + Chr( 7 ), "")) <> i Then IsHeader = False: Exit For\nNext\n