The csvsimple package is for you. Given an archive in .csv format you can obtain a table (tabular or longtable) containing only the data required. In the example below I used the filter equal key to print only the rows that match a certain value in the "Department" column (which is the forth column, so \csvcoliv). I preferred to use a longtable environment as I expect some tables to span two pages (or more).
\documentclass{article}
\usepackage[a4paper,margin=1cm]{geometry}
\usepackage{csvsimple}
\usepackage{longtable}
\begin{filecontents}[overwrite]{test.csv}
Name,Title,Designation,Department,Faculty,Institute,TelNo,EmailID
Isaak Bacharach,Doctor,Foo,Mathematics,Science,Foo,234234123,foo@gmail.com
Reinhold Baer,Professor,Foo,Chemics,Science,Foo,234234123,loo@gmail.com
Christian Bär,Doctor,Loo,Physics,Science,Loo,234234123,foogmail.com
Wolf Barth,Professor,Foo,Physics,Science,Foo,234234123,loo@gmail.com
Friedrich L. Bauer,Professor,Loo,Chemics,Science,Loo,234234123,foogmail.com
August Beer,Doctor,Foo,Sociology,Literature,Foo,234234123,loo@gmail.com
Walter Benz,Professor,Loo,Physics,Science,Loo,234234123,foogmail.com
Rudolf Berghammer,Professor,Foo,Sociology,Literature,Foo,234234123,loo@gmail.com
Felix Bernstein,Professor,Loo,Physics,Science,Loo,234234123,foogmail.com
Ludwig Berwald,Doctor,Foo,Philosophy,Literature,Foo,234234123,loo@gmail.com
Karl Bobek,Professor,Loo,Sociology,Literature,Loo,234234123,foogmail.com
Friedrich Böhm,Doctor,Foo,Philosophy,Literature,Foo,234234123,loo@gmail.com
Oskar Bolza,Professor,Loo,Chemics,Science,Loo,234234123,foogmail.com
Karl-Heinz Boseck,Professor,Foo,Chemics,Science,Foo,234234123,loo@gmail.com
Hermann Bottenbruch,Doctor,Loo,Philosophy,Literature,Loo,234234123,foogmail.com
\end{filecontents}
\newcommand{\getphonelist}[1]{%
\begin{longtable}[l]{lll}
\bfseries Person & \bfseries Tel.~No. & \textbf{Email ID}
\csvreader[head to column names,filter equal={\csvcoliv}{#1}]{test.csv}{}%
{\ \Name & \TelNo & \texttt{\EmailID}}
\end{longtable}}
\begin{document}
\csvautolongtable{test.csv}
\section{Faculty of Science}
\subsection{Department of Mathematics}
\getphonelist{Mathematics}
\subsection*{Department of Physics}
\getphonelist{Physics}
\section{Faculty of Literature}
\subsection{Department of Philosophy}
\getphonelist{Philosophy}
\subsection*{Department of Sociology}
\getphonelist{Sociology}
\end{document}