You just need to add your qualifiers. I would use an array to test the extension...

Sub MoveFiles()
    Dim OldPath As String
    Dim NewPath As String
    Dim LoopFile As String
    Dim FileExt() As String
    OldPath = "C:\Users\Zack\Desktop\TEST\"
    NewPath = "C:\Users\Zack\Desktop\DEST\"
    LoopFile = Dir(OldPath & "*.*")
    Do While LoopFile <> ""
        FileExt = Split(LoopFile, ".")
        Select Case FileExt(UBound(FileExt))
        Case "asm", "dwf", "dxf", "stp", "sat", "prt", "igs", "ipt", "jpg", "pdf"
            Name OldPath & LoopFile As NewPath & LoopFile
        End Select
        LoopFile = Dir
    Loop
End Sub
Edit: BTW, change the file folders to your specifics. Above used for testing.