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.