Copy Rows Using Wildcards

I have a problem with the code below. I've borrowed parts of it from various online sources and attempted to make it my own. I need it to go through a column of data that is imported into column A. The unique search criteria are rows that goes sequentially (i.e. 1, 2, 3). The format for the search is (#. text). I need to copy those rows to sheet 2. The problem with the code is that it only copies the first occurrence of the sequence (the row with 1.) to sheet 2 and stops.

Here's an example of the data:

Kalé

1. Kalé

$$ Japanese, Sushi Bars

Shigezo

2. Shigezo

Southwest Portland, Downtown

Code:
Sub Copy_FSE_yelp()

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row 'Finds last row
For i = 1 To LastRow 'creates loop for column

If Cells(i, 1) Like "*" & "." & "*" Then
Range(Cells(i - 1, 1), Cells(i - 1, 1)).Select
Selection.Copy

[Code] ........