You still haven't said what you want to do with these found items, however the basic code to find them (omitting those you listed) is as follows, assuming that by 'Line' you mean 'Paragraph'

Sub Macro1()Dim oRng As Range
Const strFind As String = "Modelo:^t"
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:=strFind)
            oRng.Collapse 0
            oRng.End = oRng.Paragraphs(1).Range.End - 1
            If Not Left(oRng.Text, 9) = "IFC 100 W" Or _
               Not Left(oRng.Text, 9) = "IFC 100 C" Or _
               Not Left(oRng.Text, 9) = "IFC 070 C" Or _
               Not Left(oRng.Text, 9) = "IFC 070 F" Or _
               Not Left(oRng.Text, 9) = "IFC 050 C" Or _
               Not Left(oRng.Text, 9) = "IFC 050 W" Or _
               Not Left(oRng.Text, 13) = "Optiflux 2000" Or _
               Not Left(oRng.Text, 5) = "V/Ref" Or _
               Not Left(oRng.Text, 13) = "Optiflux 1000" Then
                'do what you want with oRng here e.g.
                MsgBox oRng.Text
            End If
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub